spmat <- Matrix::Diagonal(4, 0:3)
spmat[4, 2] <- 5
spmat[1, 4] <- 6
spmat[3, 4] <- 7
spmat
X <- as_SFBM(spmat)
X[1:3, 2:3]
X[, 4] # parameter drop is not implemented
X[-1, 3:4]
X$dense_acc(2:4, 3:4)
X2 <- as_SFBM(spmat, compact = TRUE)
X2[1:3, 2:3]
X2$dense_acc(1:3, 2:3)
Run the code above in your browser using DataLab